home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Tele / D-F / FSP-BD Folder / FSPC(Files.ALL) < prev    next >
Encoding:
Text File  |  1992-04-06  |  7.7 KB  |  226 lines  |  [TEXT/MSWD]
  1. *
  2. * This file creates text files for all sections for later    *
  3. * inclusion into a FILES text file for file requesting       *
  4. *
  5. * Define pathname labels                                     *
  6. *
  7. DEFINE "TRANSPATH" "SCSI:BBS:TRANS"
  8. DEFINE "TICPATH" "SCSI:BBS:TIC"
  9. DEFINE "FSPPATH" "SCSI:BBS:FSP.TXT:"
  10. *
  11. CLEAR
  12. *
  13. * Set up the header text files for the FILES listing *
  14. *
  15. *
  16. DEFINE "TxtHdr1" "All files available for FREQ from 15/16 as of \Date..."
  17. DEFINE "TxtHdr2" "REMINDER list changes frequently..."
  18. DEFINE "TxtHdr3" "   "
  19. FORMAT "COL:3+'FREQ name:'+NAME+COL:40+'Vers:'+VERS+COL:60+'Size:'+SIZEK"
  20. FORMAT "+CR+0+DESCA"
  21. FORMAT "+TAB"
  22. SAVETEXT/FORMAT "SCSI:BBS:FSP.TXT:Header.Files"
  23. DEFINE "TxtHdr1" ""                ; Clear out the TxtHdr entry
  24. DEFINE "TxtHdr2" ""
  25. DEFINE "TxtHdr3" ""
  26. *
  27. *
  28. *******************************************************
  29. * Define Macro to create individual text file listings*
  30. *                                                     *
  31. * This macro loads each section, adds the areaname    *
  32. * to the top of the text file, then adds all entry's  *
  33. * to the section. Then saves it as text file with it's*
  34. * own unique name for later inclusion into the FILES  *
  35. * listing                                             *
  36. *******************************************************
  37. CLEAR
  38. DEFINEMACRO "FilesCreate"
  39. LOAD "@1"
  40. SORT/TITLE
  41. DEFINE "TxtHdr1" "**********"
  42. DEFINE "TxtHdr2" "AreaName"
  43. DEFINE "TxtHdr3" "**********"
  44. FORMAT "COL:3+'FREQ name:'+NAME+COL:40+'Vers:'+VERS+COL:60+'Size:'+SIZEK"
  45. FORMAT "+CR+0+DESCA"
  46. CONCATENATE "F1" "AreaName" ".Files"
  47. CONCATENATE "F2" "FSPPATH" "F1"
  48. SAVETEXT/FORMAT "F2"
  49. DEFINE "TxtHdr1" ""             ; clear out the TxtHdr
  50. DEFINE "TxtHdr2" ""
  51. DEFINE "TxtHdr3" ""
  52. ENDMACRO
  53. *
  54. * Go do the Macro                               *
  55. *
  56. * Each Area's name must be defined before entry *
  57. * into the macro to add the proper filename     *
  58. * when the section is saved                     *
  59. *
  60. *
  61. DEFINE "AreaName" "AMIGA"
  62. FilesCreate "TRANSPATH:AMIGA:AMIGA"
  63. DEFINE "AreaName" "APPLE"
  64. FilesCreate "TRANSPATH:APPLE:APPLE"
  65. DEFINE "AreaName" "COMMODORE"
  66. FilesCreate "TRANSPATH:COM64:COMMODORE"
  67. DEFINE "AreaName" "FIDO"
  68. FilesCreate "TRANSPATH:FIDO:FIDO"
  69. DEFINE "AreaName" "IBMAPPS"
  70. FilesCreate "TICPATH:IBM:IBM:IBMAPPS:IBMAPPS"
  71. DEFINE "AreaName" "IBMART"
  72. FilesCreate "TICPATH:IBM:IBM:IBMART:IBMART"
  73. DEFINE "AreaName" "IBMC"
  74. FilesCreate "TICPATH:IBM:IBM:IBMC:IBMC"
  75. DEFINE "AreaName" "IBMCOMM"
  76. FilesCreate "TICPATH:IBM:IBM:IBMCOMM:IBMCOMM"
  77. DEFINE "AreaName" "IBMGAMES"
  78. FilesCreate "TICPATH:IBM:IBM:IBMGAMES:IBMGAMES"
  79. DEFINE "AreaName" "IBMMISC"
  80. FilesCreate "TICPATH:IBM:IBM:IBMMISC:IBMMISC"
  81. DEFINE "AreaName" "IBMPASCAL"
  82. FilesCreate "TICPATH:IBM:IBM:IBMPASCAL:IBMPASCAL"
  83. DEFINE "AreaName" "IBMUTIL"
  84. FilesCreate "TICPATH:IBM:IBM:IBMUTIL:IBMUTIL"
  85. DEFINE "AreaName" "MACAPPS"
  86. FilesCreate "TICPATH:MAC:MAC:MACAPPS:MACAPPS"
  87. DEFINE "AreaName" "MACDA"
  88. FilesCreate "TICPATH:MAC:MAC:MACDA:MACDA"
  89. DEFINE "AreaName" "MACEDUC"
  90. FilesCreate "TICPATH:MAC:MAC:MACEDUC:MACEDUC"
  91. DEFINE "AreaName" "MACFKEY"
  92. FilesCreate "TICPATH:MAC:MAC:MACFKEY:MACFKEY"
  93. DEFINE "AreaName" "MACFONT"
  94. FilesCreate "TICPATH:MAC:MAC:MACFONT:MACFONT"
  95. DEFINE "AreaName" "MACGAMES"
  96. FilesCreate "TICPATH:MAC:MAC:MACGAMES:MACGAMES"
  97. DEFINE "AreaName" "MACGRAPH"
  98. FilesCreate "TICPATH:MAC:MAC:MACGRAPH:MACGRAPH"
  99. DEFINE "AreaName" "MACHC"
  100. FilesCreate "TICPATH:MAC:MAC:MACHC:MACHC"
  101. DEFINE "AreaName" "MACINIT"
  102. FilesCreate "TICPATH:MAC:MAC:MACINIT:MACINIT"
  103. DEFINE "AreaName" "MACPROG"
  104. FilesCreate "TICPATH:MAC:MAC:MACPROG:MACPROG"
  105. DEFINE "AreaName" "MACSOUND"
  106. FilesCreate "TICPATH:MAC:MAC:MACSOUND:MACSOUND"
  107. DEFINE "AreaName" "MACTELE"
  108. FilesCreate "TICPATH:MAC:MAC:MACTELE:MACTELE"
  109. DEFINE "AreaName" "MACUTIL"
  110. FilesCreate "TICPATH:MAC:MAC:MACUTIL:MACUTIL"
  111. DEFINE "AreaName" "MDNADMIN"
  112. FilesCreate "TICPATH:MAC:MDN:MDNADMIN:MDNADMIN"
  113. DEFINE "AreaName" "MDNDEMO"
  114. FilesCreate "TICPATH:MAC:MDN:MDNDEMO:MDNDEMO"
  115. DEFINE "AreaName" "MDNGAMER"
  116. FilesCreate "TICPATH:MAC:MDN:MDNGAMER:MDNGAMER"
  117. DEFINE "AreaName" "MDNINFO"
  118. FilesCreate "TICPATH:MAC:MDN:MDNINFO:MDNINFO"
  119. DEFINE "AreaName" "MDNOTHER"
  120. FilesCreate "TICPATH:MAC:MDN:MDNOTHER:MDNOTHER"
  121. DEFINE "AreaName" "MDNPROG"
  122. FilesCreate "TICPATH:MAC:MDN:MDNPROG:MDNPROG"
  123. DEFINE "AreaName" "MDNTELE"
  124. FilesCreate "TICPATH:MAC:MDN:MDNTELE:MDNTELE"
  125. DEFINE "AreaName" "MDNUTIL"
  126. FilesCreate "TICPATH:MAC:MDN:MDNUTIL:MDNUTIL"
  127. DEFINE "AreaName" "MDNEDUC"
  128. FilesCreate "TICPATH:MAC:MDN:MDNEDUC:MDNEDUC"
  129. DEFINE "AreaName" "MDNPCMAC"
  130. FilesCreate "TICPATH:MAC:MDN:MDNPCMAC:MDNPCMAC"
  131. DEFINE "AreaName" "MFNFONT"
  132. FilesCreate "TICPATH:MAC:MFN:MFNFONT:MFNFONT"
  133. DEFINE "AreaName" "MFNPROG"
  134. FilesCreate "TICPATH:MAC:MFN:MFNPROG:MFNPROG"
  135. DEFINE "AreaName" "MFNEDUC"
  136. FilesCreate "TICPATH:MAC:MFN:MFNEDUC:MFNEDUC"
  137. DEFINE "AreaName" "MFNHC"
  138. FilesCreate "TICPATH:MAC:MFN:MFNHC:MFNHC"
  139. DEFINE "AreaName" "MFNUTIL"
  140. FilesCreate "TICPATH:MAC:MFN:MFNUTIL:MFNUTIL"
  141. DEFINE "AreaName" "MFNTELE"
  142. FilesCreate "TICPATH:MAC:MFN:MFNTELE:MFNTELE"
  143. DEFINE "AreaName" "MFNDA"
  144. FilesCreate "TICPATH:MAC:MFN:MFNDA:MFNDA"
  145. DEFINE "AreaName" "MFNINIT"
  146. FilesCreate "TICPATH:MAC:MFN:MFNINIT:MFNINIT"
  147. DEFINE "AreaName" "MFNGAMES"
  148. FilesCreate "TICPATH:MAC:MFN:MFNGAMES:MFNGAMES"
  149. DEFINE "AreaName" "MFNSOUND"
  150. FilesCreate "TICPATH:MAC:MFN:MFNSOUND:MFNSOUND"
  151. DEFINE "AreaName" "MFNGRAPH"
  152. FilesCreate "TICPATH:MAC:MFN:MFNGRAPH:MFNGRAPH"
  153. DEFINE "AreaName" "MFNAPPS"
  154. FilesCreate "TICPATH:MAC:MFN:MFNAPPS:MFNAPPS"
  155. DEFINE "AreaName" "PDNAI"
  156. FilesCreate "TICPATH:IBM:PDN:PDNAI:PDNAI"
  157. DEFINE "AreaName" "PDNASM"
  158. FilesCreate "TICPATH:IBM:PDN:PDNASM:PDNASM"
  159. DEFINE "AreaName" "PDNBASIC"
  160. FilesCreate "TICPATH:IBM:PDN:PDNBASIC:PDNBASIC"
  161. DEFINE "AreaName" "PDNBATCH"
  162. FilesCreate "TICPATH:IBM:PDN:PDNBATCH:PDNBATCH"
  163. DEFINE "AreaName" "PDNCEE"
  164. FilesCreate "TICPATH:IBM:PDN:PDNCEE:PDNCEE"
  165. DEFINE "AreaName" "PDNGNU"
  166. FilesCreate "TICPATH:IBM:PDN:PDNGNU:PDNGNU"
  167. DEFINE "AreaName" "PDNGNDOS"
  168. FilesCreate "TICPATH:IBM:PDN:PDNGNDOS:PDNGNDOS"
  169. DEFINE "AreaName" "PDNLANG"
  170. FilesCreate "TICPATH:IBM:PDN:PDNLANG:PDNLANG"
  171. DEFINE "AreaName" "PDNNEWS"
  172. FilesCreate "TICPATH:IBM:PDN:PDNNEWS:PDNNEWS"
  173. DEFINE "AreaName" "PDNNEWS"
  174. FilesCreate "TICPATH:IBM:PDN:PDNOS2:PDNNEWS"
  175. DEFINE "AreaName" "PDNOTHER"
  176. FilesCreate "TICPATH:IBM:PDN:PDNOTHER:PDNOTHER"
  177. DEFINE "AreaName" "PDNPASCL"
  178. FilesCreate "TICPATH:IBM:PDN:PDNPASCL:PDNPASCL"
  179. DEFINE "AreaName" "PDNUNIX"
  180. FilesCreate "TICPATH:IBM:PDN:PDNUNIX:PDNUNIX"
  181. DEFINE "AreaName" "PDNWIN"
  182. FilesCreate "TICPATH:IBM:PDN:PDNWIN:PDNWIN"
  183. DEFINE "AreaName" "SC_UUCP"
  184. FilesCreate "TICPATH:IBM:PDN:PDNSC_UUCP:SC_UUCP"
  185. DEFINE "AreaName" "SDN_BUSI"
  186. FilesCreate "TICPATH:IBM:SDN:SDN_BUSI:SDN_BUSI"
  187. DEFINE "AreaName" "SDN_COMM"
  188. FilesCreate "TICPATH:IBM:SDN:SDN_COMM:SDN_COMM"
  189. DEFINE "AreaName" "SDN_DATA"
  190. FilesCreate "TICPATH:IBM:SDN:SDN_DATA:SDN_DATA"
  191. DEFINE "AreaName" "SDN_GRAP"
  192. FilesCreate "TICPATH:IBM:SDN:SDN_GRAP:SDN_GRAP"
  193. DEFINE "AreaName" "SDN_MISC"
  194. FilesCreate "TICPATH:IBM:SDN:SDN_MISC:SDN_MISC"
  195. DEFINE "AreaName" "SDN_UTIL"
  196. FilesCreate "TICPATH:IBM:SDN:SDN_UTIL:SDN_UTIL"
  197. DEFINE "AreaName" "SDN_WORD"
  198. FilesCreate "TICPATH:IBM:SDN:SDN_WORD:SDN_WORD"
  199. DEFINE "AreaName" "SDN_SYST"
  200. FilesCreate "TICPATH:IBM:SDN:SDN_SYST:SDN_SYST"
  201. DEFINE "AreaName" "SDN_OTHR"
  202. FilesCreate "TICPATH:IBM:SDN:SDN_OTHR:SDN_OTHR"
  203. DEFINE "AreaName" "SDN_GAME"
  204. FilesCreate "TICPATH:IBM:SDN:SDN_GAME:SDN_GAME"
  205. DEFINE "AreaName" "BACKBONE"
  206. FilesCreate "TICPATH:BACKBONE:BACKBONE"
  207. DEFINE "AreaName" "ECHOLST"
  208. FilesCreate "TICPATH:ECHOLIST:ECHOLST"
  209. DEFINE "AreaName" "NODEDIF"
  210. FilesCreate "TICPATH:NODEDIFF:NODEDIF"
  211. DEFINE "AreaName" "FIDONWS"
  212. FilesCreate "TICPATH:FIDONEWS:FIDONWS"
  213. DEFINE "AreaName" "SERVICES"
  214. FilesCreate "TICPATH:SERVICES:SERVICES"
  215. DEFINE "AreaName" "ECHOPOL"
  216. FilesCreate "TICPATH:ECHOPOL:ECHOPOL"
  217. DEFINE "AreaName" "FILEMOVE"
  218. FilesCreate "TICPATH:FILEMOVE:FILEMOVE"
  219. DEFINE "AreaName" "NEWMUG"
  220. FilesCreate "TRANSPATH:NEWMUG:NEWMUG"
  221. DEFINE "AreaName" "LEDS"
  222. FilesCreate "TRANSPATH:POLICE:LEDS"
  223. *
  224. CHAIN "SCSI:BBS:FSPC(FILES.NEW)"
  225. END
  226.